Attribute VB_Name = "DeLay"
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillSeconds As Long)





Public Sub DelayTime(millseconds As Long)
    Sleep (millseconds)
    DoEvents
End Sub
